home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2002 #11 / Amiga Plus CD - 2002 - No. 11.iso / Games / talesdemo / rexx / Quit_TCP_IP_AmiTCP.rexx < prev    next >
OS/2 REXX Batch file  |  2000-05-11  |  1KB  |  31 lines
  1. /******************************************************************************************************/
  2. /* Online-Script mit Arexx                                                                            */
  3. /*     © by Martin Wolf / Eternity Hard & Software                                                  */
  4. /*      First Bit set: 03.05.1998                                                                     */
  5. /*      Last Bit set :                                                                                */
  6. /*                                                                                                */
  7. /*                                                                                                    */
  8. /*      Version 1.01 : Env-Var wird jetzt abgefragt                                          */
  9. /*      Version 1.02 : Env-Var -1 verursacht nun keinen Fehler mehr                          */
  10. /*                                                                                                    */
  11. /******************************************************************************************************/
  12.  
  13.  
  14. OPTIONS RESULTS
  15.  
  16. ADDRESS COMMAND
  17.     IF (OPEN('EnvVar','ToT:Data/TCPIPDeja','R')) THEN
  18.       DO
  19.       IF (0=(READCH('EnvVar',1))) THEN
  20.         DO UNTIL SHOW('P','AMITCP')                /* Auf AmiTCP warten */
  21.         SIGNAL OFF ERROR
  22.         'WaitForPort AMITCP'
  23.         SIGNAL ON ERROR
  24.         amitcpport = AMITCP                    /* ist auf jeden Fall der aktive Port */
  25.  
  26. ADDRESS (amitcpport)
  27.         QUIT
  28.           END
  29.       END
  30.     EXIT
  31.